home *** CD-ROM | disk | FTP | other *** search
/ How Would You Survive? / How Would You Survive (1995)(Grolier)[Mac-PC].iso / mac / SHARED.DIR / 01974_Script_ScrollText < prev    next >
Text File  |  1995-09-13  |  1KB  |  43 lines
  1. on ScrollTextUp whichsprite, TopLocV, TextSprite, TransboxSprite
  2.   set gTextHeight = the bottom of sprite TextSprite
  3.   set gTextWindowHeight = the bottom of sprite TransboxSprite
  4.   if rollover(whichsprite) then
  5.     HandCursor
  6.     puppetsprite TextSprite, true
  7.     repeat while (the mousedown) and rollover(whichsprite)
  8.       if the bottom of sprite TextSprite >= gTextWindowHeight then
  9.         Set the LocV of sprite TextSprite = the locV of sprite textsprite - 2
  10.         updatestage
  11.       end if
  12.     end repeat
  13.   end if
  14. end
  15.  
  16.  
  17. on ScrollTextDown whichsprite, TopLocV, TextSprite, TransboxSprite
  18.   set gTextHeight = the top of sprite TextSprite
  19.   set gTextWindowHeight = the top of sprite TransboxSprite
  20.   if rollover(whichsprite) then
  21.     HandCursor
  22.     puppetsprite TextSprite, true
  23.     repeat while (the mousedown) and rollover(whichsprite)
  24.       if the top of sprite TextSprite < gTextWindowHeight then
  25.         Set the LocV of sprite TextSprite = the locV of sprite textsprite + 2
  26.         updatestage
  27.       end if
  28.     end repeat
  29.   end if
  30. end
  31.  
  32.  
  33. on ResetScrollText TopLocV, TextSprite
  34.   set the LocV of sprite TextSprite = TopLocV
  35.   updatestage
  36.   puppetsprite TextSprite, false
  37. end
  38.  
  39. on ResetScrollText2
  40.   set the LocV of sprite 2 = 89
  41.   updatestage
  42.   puppetsprite 2, false
  43. end